home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 3.2
/
Ham Radio Version 3.2 (Chestnut CD-ROMs)(1993).ISO
/
misc
/
kam401
/
kam.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-03-21
|
2KB
|
72 lines
{ C A R P
A keyboard terminal program for use with the Kantronics KAM (tm) all
mode interface in the Cw Ascii Rtty Packet modes. This program is the
product of W1HKJ, suggestions for improvements are welcomed and should
be sent to the below address.
(c) Copyright Dave Freese, W 1 H K J
c/o Clermont Computer Consultants
29 N. Ravenwood Drive
Cape May Court House, NJ 08210
(609) 625 0076
}
program KAM;
{$R-} {Range checking off}
{$N-} {No numeric coprocessor}
Uses
Crt,
Dos,
DBF4, { . }
INDEX4, { . }
SAYGET4, { . }
BROWSE4, { TOPAZ UNITS }
TIMEDATE, { . }
PICK, { . }
VIDPOP; { .}
procedure chk_kbd; forward;
procedure sho_status; forward;
procedure halt_xmt; forward;
{$I KAM-TYP.PAS}
{$I KAM-CON.PAS}
{$I KAM-VAR.PAS}
{$I KAM-CLR.PAS}
{$I KAM-DOS.PAS}
{$I KAM-LOG.PAS}
{$I KAM-IO.PAS}
{$I KAM-VID.PAS}
{$I KAM-AUX.PAS}
{$I KAM-HLP.PAS}
{$I KAM-XMT.PAS}
{$I KAM-RCV.PAS}
{$I KAM-SET.PAS}
{$I KAM-KBD.PAS}
begin
check_video;
{ CheckBreak := false; }
save_entry_screen;
initialize;
clear_screen;
repeat
disp_time;
case state of
transmit : xmtg;
receive : rcvg;
transceive : begin
xmtg;
rcvg;
end;
end;
chk_kbd;
until quit_flag = TRUE;
CloseDataBases;
reset_date_time;
reset_kam;
restore_entry_screen;
end.